10 PRINT"[147]              SPRITE GRAPH"
20 INPUT"HOW MANY GRAPHS";B:F=1:IF B<1 THEN END
30 OPEN3,4:PRINT#3,CHR$(14)"  SPRITE GRAPH":A=1:REM CHR$(14)-DOUBLE WIDTH MODE
40 FORI=1TO24:PRINT#3:PRINT#3
50 PRINT#3,CHR$(15)"     1       1       1":REM CHR$(15)-STANDARD CHAR MODE
60 PRINT#3,CHR$(15)"     2631    2631    2631"
70 PRINT#3,CHR$(15)"     842684218426842184268421"CHR$(8):REM CHR$(8)-BIT IMAGE
80 PRINT#3,CHR$(15)"    [176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"CHR$(8)
90 PRINT#3,CHR$(15)A;" [171][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][179]"CHR$(8):A=A+1
100 IF A>9 THEN 120
110 GOTO 90
120 PRINT#3,CHR$(15)A;"[171][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][179]"CHR$(8):A=A+1
130 IF A=21 THEN 150
140 GOTO 120
150 PRINT#3,CHR$(15)" 21 [173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"CHR$(8)
160 PRINT#3:PRINT F:F=F+1
170 IF F<B+1 THEN A=1:GOTO 40
180 CLOSE3:END